;Modify the radius of a selection set of circles. (uses UREAL)
;The only input required is the desired radius and selection.
;There is no need to worry about not selecting non-circle entities
;because they will be automatically filtered out of the
;selection set.
;
;	AUTHOR: HENRY C. FRANCIS
;	        425 N. Ashe Street
;	        Southern Pines, NC 28387
;              
;	All rights reserved without prejudice.
;
;	Copyright:	6-7-94
;	Edited:	5-14-98
;
(DEFUN C:CIRAD ( / tset tsln cntr tent edtw)
(if ureal nil (load "ureal" "\nFile UREAL.LSP not found! "))
(setq new_radius (ureal 1 "" "New Circle Radius" (if new_radius new_radius)))
(if dimscl nil (load"dimscl"))
(dimscl)
(prompt "\nSelect Circles: ")
(setq tset (ssget '((0 . "CIRCLE"))))
(if tset
  (progn
    (setq tsln (sslength tset))
    (setq cntr 0)
  )
)
(while
  (if (and (< cntr tsln) tset)
    (setq tent (entget (ssname tset cntr)))
  );if
  (progn
    (setq edtw (entget (cdar tent)))
    (if (eq(cdr(assoc 0 edtw))"CIRCLE")
      (progn
        (setq edtw
          (subst (cons 40 new_radius)
                 (assoc 40 edtw)
                 edtw
          )
        )
        (entmod edtw)
      )
    )
    (setq cntr (1+ cntr))
  )
)
);DEFUN
